home *** CD-ROM | disk | FTP | other *** search
- #ifndef XPKMASTER_FIB_C
- #define XPKMASTER_FIB_C
-
- /* Routinesheader
-
- Name: fib.c
- Main: xpkmaster
- Versionstring: $VER: fib.c 1.0 (05.10.96)
- Author: SDI
- Distribution: PD
- Description: FIB related routines
-
- 1.0 05.10.96 : first real version
- */
-
- #include <pragma/exec_lib.h>
- #include <pragma/dos_lib.h>
- #include <exec/types.h>
- #include "xpkmaster.h"
-
- void updatefib(struct XpkBuffer *xbuf)
- {
- struct XpkStreamHeader *globhdr = &xbuf->xb_Headers.h_Glob;
- XpkChunkHeader *lochdr = &xbuf->xb_Headers.h_Loc;
- struct XpkFib *fib = &xbuf->xb_Fib;
- LONG ulen, clen;
-
- if(xbuf->xb_Headers.h_Glob.xsh_Flags & XPKSTREAMF_LONGHEADERS)
- {
- ulen = lochdr->xch_Long.xchl_ULen;
- clen = lochdr->xch_Long.xchl_CLen;
- }
- else
- {
- ulen = lochdr->xch_Word.xchw_ULen;
- clen = lochdr->xch_Word.xchw_CLen;
- }
-
- fib->xf_Type = XPKTYPE_PACKED;
- fib->xf_CLen = globhdr->xsh_CLen + 8;
- fib->xf_ULen = globhdr->xsh_ULen;
- fib->xf_NLen = ulen + XPK_MARGIN;
- fib->xf_CCur += ROUNDLONG (clen) + xbuf->xb_Headers.h_LocSize;
- fib->xf_UCur += ulen;
- fib->xf_ID = globhdr->xsh_Type;
- fib->xf_SubVersion = globhdr->xsh_SubVrs;
- fib->xf_MasVersion = globhdr->xsh_MasVrs;
- CopyMem(globhdr->xsh_Initial, fib->xf_Head, 16);
-
- percentages(fib);
- }
-
- /*
- void storefib (struct XpkBuffer *xbuf)
- {
- struct Headers globloc;
- UBYTE comment[80];
- STRPTR in = (STRPTR) &globloc, out = comment;
-
- if (!xbuf->xb_OutName || !(xbuf->xb_Flags & XMF_USECOMMENT))
- return;
-
- CopyMem(&xbuf->xb_Headers, &globloc, sizeof(struct Headers));
- globloc.h_LocSize = 0;
-
- *(out++) = 'X'; *(out++) = 'P'; *(out++) = 'K'; *(out++) = 'F';
-
- for(; in < (STRPTR) &globloc + sizeof(struct Headers) - 4; in += 3)
- {
- *out++ = 64 | (in[0] & 3) << 4 | (in[1] & 3) << 2 | in[0] & 3;
- *out++ = 64 | in[0] >> 2;
- *out++ = 64 | in[1] >> 2;
- *out++ = 64 | in[2] >> 2;
- }
- *out = 0;
-
- SetComment(xbuf->xb_OutName, comment);
- }
- */
- void percentages (struct XpkFib *fib)
- {
- fib->xf_Ratio = 0;
- if(fib->xf_ULen)
- fib->xf_Ratio = 100 - 100 * fib->xf_CLen / fib->xf_ULen;
- if(fib->xf_Ratio < 0)
- fib->xf_Ratio = 0;
- *(LONG *) fib->xf_Packer = fib->xf_ID;
- fib->xf_Packer[4] = 0;
- }
-
- #endif /* XPKMASTER_FIB_C */
-